home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Database / Foxpro 2.06 Win / EXAMPLE7.PR_ / EXAMPLE7.bin
Text File  |  1994-03-11  |  319b  |  13 lines
  1. select oletable
  2. numfiles = adir(wordfiles,"*.doc")
  3. if numfiles > 0
  4.     for i = 1 to numfiles
  5.         append blank
  6.         replace oletable.name with wordfiles(i,1)
  7.         replace oletable.oletype with "MSWord"
  8.         append general object from wordfiles(i,1)
  9.     endfor
  10. else
  11.     wait window "No Word files found.  Press any key..."
  12. endif
  13.